#!/usr/bin/perl

while () {
    sleep 1;
}
